PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


= 
L 10 


**F I LE**1D**PASLIB 
PPPPPPPP AAAAAA SSSSSSSS_ LL IIIII1 BBBBBBBB 
PPPPPPPP AAAAAA SSSSSSSS_ LL II1111 BBBBBBEB 
PP PP AA AA SS LL II BB BB 
PP PP AA AA SS LL II BB BB 
PP PP AA AA SS LL II BB BB 
PP PP AA AA SS LL II BB BB 
PPPPPPPP AG Aa SSSSSS LL I] BBBBBBBB 
PPPPPPPP AA AA SSSSSS LL II BBBBBBBB 
PP AAAAAAAAAA $$ LL II BB BB 
PP AAAAAAAAAA SS LL II BS BB 
PP AA AR SS LL II BB BB . 
PP aa AA SS LL II BB BB cece 
PP Ab AA SSSSSSSS LLLLLLLLLL I1I1I1 BBBBBBBB eoee 
PP AG AA SSSSSSSS LLLLLLLLLL IIIII1 BBBBBBBB eoee 
RRRRRRRR EEEEEEEEEE QQQ0a0 
RRRRRRRR EEEEEEEEEE QQQ000 
RR RR EE Q QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR RR EE QQ QQ QQ 
RR RR EE QQ QQ QQ 
RR RR EE QQ Q 
RR RR EE QQ QQ 
RR RR EEEEEEEEEE QQQQg QQ 
RR RR EEEEEEEEEE QQQag QQ 
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' i prec" Run-Time Library specific macros and symbols 
ile: PASLIB.REQ, Edit: § (1002 


EIT DEED A RATES SBS BEAST EO 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!* DIGIIAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 
® 
® 
® 
tt THIS SUFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND porate * 
't ONLY IN ACCORDANCE WITH THE Por OF SUCH piyts | -s THE * 
:* INCLUSION OF THE ABOVE opt ho NOTICE. THIS SOFTWARE OR OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
4 ® 
e phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
't CORPORATION. * 

*® 

* 

® 

*® 

*® 

® 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR enamel OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


Pee Re REE RAEAAEAAR AEA EAE AAA RERAAAAEAAEA AERA AeA 
i 


Author: Steven B. Lionel, 1-April-1981 


i 
i 
i 1-9) - Original. SBL 1-April-1981 
i 1-002 = Reflect new name of FCB structure due to use of fieldsets. 
s 10-Feb-1983 


4 
' This file is the master source for PASLIB.L32. 

! It REQUIRES all of the .REQ and .B32 files which 

; comprise PASLIB. This tile e then precompiled into PASLIB.L32. 


SWITCHES ADDRESSING_MODE (EXTERNAL=GENERAL, NONEXTERNAL=WORD_RELATIVE); 


LIBRARY ‘RTLSTARLE'; ' SYSSLIBRARY:STARLET.L32 
REQUIRE *RTLIN:PASPFV'; ' Pascal File Variable (PFV$) definitions 
REQUIRE *RTLIN:PASPFD'; ' Pascal File Descriptor (PFD$) definitions 


REQUIRE *RTLIN:PASKDB'; ! sn Descriptor Block (KDB$) definitions 


REQUIRE “*RTLML:PASFCB'; e Control Block (FCB$) definitions 
mach? SPASSFCB_CONTROL_BLOCK = BLOCK CFCSK ‘ain’ BYTE) 
FIELD (FCB_ ~EohuC TSP IELDSET) a 


'¢ 


' Number of bytes to allocate for a file control block. Includes FCB, RAB, 
! FAB and NAM blocks. 


a 


1 
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le 
LITERAL 
PASS$K_FILE_DYN_BLN = FCBSK_BLN+RABSC_BLN+FABSC_BLN+NAMSC_BLN; 


REQUIRE ‘RTLIN:PASOPEDEF'; ! OPEN keyword symbol definitions 
REQUIRE *RTLIN:PASMACROS'; ! Useful macros 

REQUIRE *RTLIN:PASBUGCOD®; 
REQUIRE "RTLIN:PASEXTERN'; 


‘4+ 
Declare codes for unwind actions for PASS$S$IO_HANDLER. 


! Bugcheck code definitions 
! Linkage and external declarations 


LITERAL 
PASSK_UNWIND_NOP = 0, ! Do nashive 
PAS$K_UNWIND-UNLOCK = 1; i Unlock file 


! End of file PASLIB.REQ 


293 AH-BT13A-SE—s_~s- : PMENT CORPORATION 
Lee oF, A 


VAX/VMS V4.0 Be “AND PROPRIETARY 


